home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / getting there / WWW / MacHTTP Extras / Forms / form.exe (source) < prev    next >
Encoding:
Text File  |  1994-06-03  |  696 b   |  14 lines  |  [TEXT/R*ch]
  1. on «event WWWΩsrch» http_search_args
  2.     set crlf to (ASCII character 13) & (ASCII character 10)
  3.     set http_10_header to "HTTP/1.0 200 OK" & crlf & "Server: MacHTTP" & crlf & ¬
  4.         "MIME-Version: 1.0" & crlf & "Content-type: text/html" & crlf & crlf
  5.     --Change the following to be the appropriate file. Note that it must
  6.     -- exist before running the script (create an empty text file first.)
  7.     set f to open file alias "Hard_Disk:MacHTTP Software:Forms:survey.txt" for update
  8.     position file f at (get file length f)
  9.     write file f text http_search_args
  10.     close file f
  11.     return http_10_header & "<title>Confirmation</title>
  12. <h1>Survey Confirmation</h1> Thanks for taking the survey!<p>"
  13. end «event WWWΩsrch»
  14.